home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / shared.dir / 00983.ls < prev    next >
Encoding:
Text File  |  1995-12-19  |  626 b   |  25 lines
  1. on spacedelete moji
  2.   set spacenum to 0
  3.   set spacenum2 to 0
  4.   set atamanum to 0
  5.   set nagasa to the number of chars in moji
  6.   repeat with n = 1 to nagasa
  7.     set dare to char n of moji
  8.     if dare = " " then
  9.       set spacenum to 1 + spacenum
  10.       next repeat
  11.     end if
  12.     exit repeat
  13.   end repeat
  14.   set atama to char spacenum + 1 to nagasa of moji
  15.   repeat with n = 1 to nagasa
  16.     set dare2 to char n of atama
  17.     if dare2 = " " then
  18.       set spacenum2 to 1 + spacenum2
  19.     end if
  20.   end repeat
  21.   set atamanum to the number of chars in atama
  22.   set honmono to char 1 to atamanum - spacenum2 of atama
  23.   return honmono
  24. end
  25.